Dim a,b(99),c As Integer
Private Sub Command1_Click(Index As Integer)
a=Index
c=0
End Sub
Private Sub display(no)
For i=0 To 7
If no Mod 2=1 And a=1 Then G(i).FillColor=RGB(0,255,0) Else G(i).FillColor=RGB(0,128,0)
If no Mod 2=1 And a=2 Then R(i).FillColor=RGB(255,0,0) Else R(i).FillColor=RGB(128,0,0)
no=no\2
Next i
End Sub
Private Sub Timer1_Timer()
b(0)= &H80
b(1)= &H40
b(2)= &H20
b(3)= &H10
b(4)=8
b(5)=4
b(6)=2
b(7)=1 
Text1.Text="Current  Time:"  & Time$
For  i=0 To 7
G(i).FillColor=vbWhite
R(i).FillColor=vbWhite
Next  i
If OpenUsbDevice(VendorID,ProductID)  Then
For i=0 To 7
G(i).FillColor=RGB(0,128,0)
R(i).FillColor=RGB(128,0,0)
Next i
OutDataCtrl 0,0
OutDataCtrl 0,16
If a=1 Then OutDataCtrl  b(c),0:display(b(c))
If a=2  And  c<=7  Then
OutDataCtrl 2^c,32
OutDataCtrl 2^c,48
display(2^c)
EndIf
EndIf
If a=3 Then CloseUsbDevice:End
If c>15 Then c=15 Else c=c+1
End Sub